'(THIS IS THE UNFASL FOR ((DSK (TIM LSP)) NREVER LSP)) 
'(ASSEMBLED BY FASLAP /392) 
'(COMPILED BY LISP COMPILER /936 COMAUX /25 PHAS1 /84 MAKLAP /80 INITIA /117) 

;COMPILED ON JANUARY 29, 1983, AT 6:13 PM

(COMMENT (DEFUN XREVERSE (CURRENT) (PROG (NEXT PREVIOUS) (M "Entries") (M "PROGs") B (MN "NULLs" NULL) (COND ((NULL CURRENT) (RETURN PREVIOUS))) (MN "CAR-CDRs" CDR) (MN "SETQs" SETQ) (SETQ NEXT (CDR CURRENT)) (MN "RPLACs" RD) (RPLACD CURRENT PREVIOUS) (MN "NULLs" NULL) (COND ((NULL NEXT) (RETURN CURRENT))) (MN "CAR-CDRs" CDR) (MN "SETQs" SETQ) (SETQ PREVIOUS (CDR NEXT)) (MN "RPLCDs" RD) (RPLACD NEXT CURRENT) (MN "NULLs" NULL) (COND ((NULL PREVIOUS) (RETURN NEXT))) (MN "CAR-CDRs" CDR) (MN "SETQs" SETQ) (SETQ CURRENT (CDR PREVIOUS)) (MN "RPLCDs" RD) (RPLACD PREVIOUS NEXT) (M "GOs") (GO B)))) 
	(COMMENT **FASL** 0. (LAP XREVERSE SUBR)) 
	(COMMENT **FASL** 30. (LAP GREVERSE SUBR)) 
	(COMMENT **FASL** 124. (LAP GHACK SUBR)) 
	(COMMENT **FASL** 162. (LAP XHACK SUBR)) 
	(COMMENT **FASL** 200. (LAP GHACK1 SUBR)) 
	(COMMENT **FASL** 239. (LAP XHACK1 SUBR)) 
	(COMMENT **FASL** 278. (LAP NHACK SUBR)) 
	(COMMENT **FASL** 316. (LAP GTIMITS SUBR)) 
	(COMMENT **FASL** 695. (LAP XTIMITS SUBR)) 
	(COMMENT **FASL** 1074. (LAP NTIMITS SUBR)) 
	(COMMENT **FASL** 1453. (LAP GTIMITL SUBR)) 
	(COMMENT **FASL** 1832. (LAP XTIMITL SUBR)) 
	(COMMENT **FASL** 2211. (LAP NTIMITL SUBR)) 
	(COMMENT **FASL** 2590. (LAP XTIMITL1 SUBR)) 
	(COMMENT **FASL** 2969. (LAP GTIMITL1 SUBR)) 
(COMMENT (DEFUN GREVERSE (CURRENT) (PROG (NEXT PREVIOUS FIRST SECOND) (COND ((NULL (SETQ FIRST (CDR CURRENT))) (RETURN CURRENT)) ((NULL (SETQ SECOND (CDR FIRST))) (RPLACA CURRENT (PROG1 (CAR FIRST) (RPLACA FIRST (CAR CURRENT)))) (RETURN CURRENT)) ((NULL (CDR SECOND)) (RPLACA CURRENT (PROG1 (CAR SECOND) (RPLACA SECOND (CAR CURRENT)))) (RETURN CURRENT))) (SETQ FIRST CURRENT SECOND (CDR FIRST)) B (COND ((NULL CURRENT) (RPLACA FIRST (PROG1 (CAR PREVIOUS) (RPLACA PREVIOUS (CAR FIRST)))) (RPLACD FIRST NEXT) (RPLACD SECOND PREVIOUS) (RPLACD PREVIOUS NIL) (RETURN FIRST))) (SETQ NEXT (CDR CURRENT)) (RPLACD CURRENT PREVIOUS) (COND ((NULL NEXT) (RPLACA FIRST (PROG1 (CAR CURRENT) (RPLACA CURRENT (CAR FIRST)))) (RPLACD FIRST PREVIOUS) (RPLACD SECOND CURRENT) (RPLACD CURRENT NIL) (RETURN FIRST))) (SETQ PREVIOUS (CDR NEXT)) (RPLACD NEXT CURRENT) (COND ((NULL PREVIOUS) (RPLACA FIRST (PROG1 (CAR NEXT) (RPLACA NEXT (CAR FIRST)))) (RPLACD FIRST CURRENT) (RPLACD SECOND NEXT) (RPLACD NEXT NIL) (RETURN FIRST))) (SETQ CURRENT (CDR PREVIOUS)) (RPLACD PREVIOUS NEXT) (GO B)))) 
	(COMMENT **FASL** TOTAL =  3348. WORDS)